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: 1 1 MODULE LOGDEL ( 

; ¢ ¢ LANGUAGE (BL 158 5¢) « 

3 IDENT = 'V04-000 

5 4 4 d= 
: 5 33 : BEGIN 

a 007 1! | 
M4 3 G0d8 \ aaa natant nina | 
4 ' * 
; 010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY » 

2" 3 11. #1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 

; i \¢ : ALL RIGHTS RESERVED. . 

;s 1 0014 1 i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 

;s 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 

Te 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; #618 0018 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: i 84 : i TRANSFERRED. ‘ 
; , oa 

an 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

; $6 00 § 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

; $7 88 : - CORPORATION. * 

Py 4 t 

3 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 

3 6 00 § 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

He BE 
: , ot 34 : WEITITITITI ITIL LIL LLL LLL LLL LLL TTL Tiii lit iliiiiiiiiil | 
Ps | 
3 1 hd 1 !e4 | 
3 ; 00 ; 1! 

: Oo8z : FACILITY: FIIACP Structure Level 1 
: 3¢ 0035 1 | ABSTRACT: 
3 38 B38 1! | 
3 7 037 1! This routine sends a message to log each delete operation that takes 

; 3 0038 1! place. 

3 9 ite 1! 

: 40 040 1 ! ENVIRONMENT: 
: 3 $042 i i STARLET operating system, including privileged system services | 
° o . Vv Vv 
: “8 Does ' and internal soot rout ines. he ° | 
8 RBI 
; 3 Th, 1 i 

; 8 B08 ! : AUTHOR: Andrew C. Goldstein, CREATION DATE: 21-Jul-1978 13:10 
; 9 i MODIFIED BY: | 
; : A0100 acGo001 Andrew C. Goldstein, 10-Oct-1978 20:01 

: 4 4 

; 5 1 

3 § 1 
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GLOBAL ROUTINE LOG_DELETE (FIB, HEADER) : NOVALUE = 


' FUNCTIONAL DESCRIPTION: 
+ Ansar sends a message to log each delete operation that takes 
ce. 
i CALLING SEQUENCE: 
LOG_DELETE (ARG1, ARG2) 
i INPUT PARAMETERS: 
ARG1: address of user FIB 
ARG2: address of file header 


! 

1 

' 

! 

' 

! 

! 

! 

! 

! 

! 

! 

' 

! IMPLICIT INPUTS: 
I0_PACKET: address of 1/0 request packet 
' OUTPUT PARAMETERS: 
} NONE 

! IMPLICIT OUTPUTS: 
NONE 

' ROUTINE VALUE: 

} NONE 

! 

! 

' 

i 


i SIDE EFFECTS: 
message sent to delete logger mailbox 


BEGIN 
MAP 
FIB : REF BBLOCK, ' user FIB 
HEADER : REF BBLOCK; ! file header arg 
LOCAL 
MESSAGE : BBLOCK CMESSAGE_LENGTH], ! message buffer 
IDENT_AREA : REF BBLOCK, ! address of header ident area 
PCB : REF BBLOCK, ! address of caller PCB. 
CHANNEL : WORD; ! channel assigned to mailbox 
EXTERNAL 
10_PACKET : REF BBLOCK, ! address of 1/0 packet 
CURRENT_UCB of device UCB 


R : REF BBLOCK, ' address 
SCHS$GL_PCBVEC : REF VECTOR ADDRESSING_MODE (ABSOLUTE); 
' system PCB vector 


EXTERNAL ROUTINE 
MAKE _STRING; ! make string from RAD-50 file name 


! Assign a channel to the mailbox. If the assignment fails, the logger is not 


2_V4.0-742 p 4 
SCFIIA,SRCILOGDEL.B32;1" (3) | 
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! : running. Then build the message and send "5 


en tatu (CHAN = CHANNEL, DEVNAM = DESCRIPTOR (*ACPSDELLOG_MBX')) 


SGETTIM (TIMADR = M SSAGECM 

MESSAGE CMSG_DEVNAME . 

MESSAGELMSG_ UNIT] . 

CHSMOVE rhe BEA HY Qf i8CF 16 
= 


da 
CBSL_0DBI, DDBST_NAME])<0,32>; 
16); 


Pow 
~“Qawm 
IMAM re 


ouvcw 
. . 
www 3B Moe -H- 


HEA 
chs Le SA. 
MAKE STRING Ber MAREACE 1 
MESSAGECMSG_OWN 
(ME SSAGECMSG OWNER])<16 B>z 
PCB = .SCH$G sof P (10, 
CHSMOVE (PCBSS rANARE 
MESSACELASG ult 


$Ql0w ¢ 


EOWN 59 <8 bo: 
ELRSG: PROCNAME) ; 


vc 
Wuz—-w 


e 
U 
U 
j 
Set ad A FILENAME); 
OWN 
0,16 
G 


— ) THICK 
oO i 
e-MOogc Ts 


CHA HANNE 
FUN $ URITEVBLK OR I10$M_NOW, 
2 


AGE, 
SSAGE _LENGTH 


N 

C 
Pp 
Pp 
); 

SDASSGN (CHAN = .CHANNEL); 

E 


ND; ! end of routine LOG_DELETE 


= .C 
= 10$ 
= MES 
= ME 


-TITLE LOGDEL 
-IDENT \vV04-000\ 


-PSECT S$CODES,NOWRT,2 


47 4F 4C 4C 45 44 24 50 43 41 Q0000 P.AAB: .ASCII atari ale 


E B 
QOOOOODE 00010 P.AAA: .LONG 14 
00000000" 00014 -ADDRESS P.AAB 


-EXTRN 10 pacnet CURRENT _UCB 


arn 


EXTRN SCASG PCBVEC, MAKE STRING 
SYSSGETTIM 


.EXTRN SYS SSAeS IGN. 
TEXTRN SYS$Q10W, gy SSDASSGN 


OOFC 00000 ENTRY 88 DELETE Save R2,R3,R4,R5,R6,R7 
SE BC AE 9E 90002 MOVAB USP SP 
7E 7C 00006 CLROQ 

OE AE or Op008 PUSHAB CHANNEL 

000000006 00 4 FB 0905 CALLS #4, SYSSASSIGN 
01 0 i i BLBS RO, 1$ 
06 AE OF 6 18 1$ PUSHAB MESSAGE 

000000006 99 01 FB O01¢ CALLS #1, SYSSGETTIM 

1 00006 CF pbO 0002 MOVL CURRENT_UCB, R1 
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Routine Size: 


Name 
SCODES 


0c 
10 
AE OA 
20 
00006 
se 
E 
30 3=6AE 70 
40 
000000006 
000000006 
180 bytes, Routine 
0478 #1 
0479 1 END 
0480 0 ELUDOM 
Bytes 


50 Se Al 
AE 4 Ad 
A 54 CAI 
5 046 AC 
A 06 
5 08 ag 
50 6 
56 6740 
6E 00 
if AE 

1 A 

FA OA 

CF 0 
AE 08 A 
AE 09 A? 
51 000000006 9F 
28 0000G CF 
5 0c 
50 60 
56 6140 
A6 10 
AE oopc = C6 
7E 

7E 

7E 40 8F 
18 AE 

7E 

7E 

7E 70 ~=—s BF 
7E 28 AE 
7E 

00 0c 
7E 6E 
00 01 


O™MWNIOWOSI NOONNONOWOSCC OOOO wWWwoOUTINVITIWlCIT 
FDODLOSPLONPOOOCWOOMCOCOCOF DVB OMPOWOOCOO 
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SOOCOCCOCOCCOOCOCCOOSCOOOSOOOOOOCO OOOO OOOOOSoOo 
COOOCOCCCOOVOCOCOVCOOCOCOCOCODOVOOCOOOCODOOOOOOCOoO 


Base: SCODE$ + 0018 


PSECT SUMMARY 


204 NOVEC,NOWRT, 


RD , 


Attributes 
EXE,NOSHR, 


LCL, 


:59 VAX-11 Bliss-32 V4.0-742 Page 6 
:41 DISKSVMSMASTER:CF11A.SRCIJLOGDEL.B32; 1 (3) 
40(R1), RO : 
; (RO), MESSAGE+8 ; 
4(R1). MESSAGE+12 + 0457 
FIB, RO + 0458 
#6, 10(RO), MESSAGE+14 : | 
HEADER, R7 + 0459 
(R7) Ro 
(r7) (ROI, IDENT AREA ; 
#0, (SP), #32, #20, MESSAGE+20 + 0460. 
MESSAGE+20 + 0461 
a CIDENT AREA) ; 
#2, MAKE-STRING ; 
8(R7), MESSAGE+40 + 046 
9(R7), MESSAGE+42 + 046 
a*SCH$GL_PCBVEC, R1 + 0464 
10_PACKET, RO ; 
#12, RO 3 
(ROS, RO ; 
(R1) CROJ, PCB ; | 
#16, 112(PCB), MESSAGE+44 + 0465 
188(PCB), MESSAGE+60 + 0466 
=(SP) + 0473 
-(SP) . 
#64, -(SP) ; 
MESSAGE F 
- SP) . 
-(SP) ; 
wil2, -(SP) : 
CHANNEL, -(SP) : 
= SP) e 
#12, SYS$QIOW ; 
CHANNEL, (SP) + 0475 
#1, SYS$DASSGN ; 
+ 0477 


REL, CON,NOPIC,ALIGN(2) 


MAK 


| 
| 
| 
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Votbbo Leete ~$e071382 93:98:27 «SN cbumGmaStERscHTiAcSReILOGDEL.832;1°%" (35 VO4 
(3 Library Statistics 

i wococeeer= Symbols oo-ee--= Pages Processing 

: File Total Loaded Percent Mapped Time 

: -$255$DUA28: CSYSLIBILIB.L32;1 18619 21 0 1000 00:01.8 


COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:LOGDEL/OBJ=OBJ$:LOGDEL MSRC$:LOGDEL/UPDATE=(ENH$:LOGDEL) 
; Size: 180 cogs + 24 data bytes 
Elapsed Tine: 00:24. :7 
; Lexenes/CPU-Rin: 21288 


: Y Used: 103 pages 
: eee ation Complete 
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